Loadstar 49/049.d81/robot rescue

Commodore BASIC | 2022-08-26 | 3KB | 69 lines

1 ifa=.thena=1:gosub63
2 ifa=1thena=2:load"rr3",8,1
3 ifa=2thena=3:load"rr4",8,1
4 poke56,155:poke52,155:clr:sys40413:print"[147]";
5 fori=49536to49615:readj:pokei,j:next
6 poke53280,.:poke53281,.:poke54272,100:poke54273,2:poke54277,18:poke54278,170
7 poke54296,15:poke54276,33
8 print"[147][154]"tab(8)"[169]   [223]":printtab(8)"  [169]  [223]   [223][169]  [223][146][223]   [146][169]"
9 printtab(8)"    [146][169]    [146][175][175][169]    ":printtab(8)" [146]  [223][223] [146][187]   ";
10 print"[146][187] [223] [146][187]   ":printtab(8)" [223] [223][146][223]  [146][169]    [146][169] [223]  [146][169] [169] [223]"
11 printtab(5)"[154][169]   [223]":printtab(5)"  [169]  [223][169]  [223][169]  [223][169][223][169]  [223]"
12 printtab(5)"    [146][169]  [146][175][175]   [146][175][175]   [146]  [183]    [146][175][175]"
13 printtab(5)" [146]  [223][223] [146][183][183]   [183][183]  [146][187] [175]  [146][187]   [146][183][183]"
14 printtab(5)" [223] [223][146][223]  [146][169] [223]  [146][169] [223]  [146][169] [223]  [146][169] [223]  [146][169]"
15 printtab(13)"[153]by jon mattson"
16 forj=1to30:fori=5to15:poke54296,i:next:fori=15to5step-1:poke54296,i:nexti,j
17 print""tab(10)"[154]instructions [[153]y[154]/[153]n[154]] ?":poke198,.
18 geta$:ifa$="n"then54
19 ifa$<>"y"then18
20 poke53280,4:poke53281,12:print"[147]"tab(10)"[144]*** instructions[144] ***"
21 poke53248,235:poke53249,200:poke52216,48:poke53276,1:poke53287,1:poke53285,6
22 poke53269,1:poke54273,3:print"use a joystick in port [144]2 to guide"
23 print"your robot-probes around the maze"
24 print"-like [144]vordax base, avoiding alien"
25 print"guardians, as you try to free the"
26 print"human hostages."
27 print"[144]space:  choose action (attack,"
28 printtab(13)"unlock,beamup,etc)
29 [153]"fire:   perform chosen action"
30 [153]"stopreturn: pause game"
31 [153]"printcontinue?":c[178]48:t[178].:s[178]1:[151]198,.
32 [161]a$:[139]a$[177]""[167]35
33 t[178]t[170]1:[139]t[178]15[172][181](t[173]15)[167]c[178]c[170]1:[139]c[177]51[167]c[178]48
34 [151]52216,c:[137]32
35 [151]54272,70:[153]"loadfind the prison cells and free the"
36 [153]"captives,using the stopelectronic keys"
37 [153]"   (also in the maze)--then beam them"
38 [153]"   up to the waiting rescue ship."
39 [153]"   also watch for useful stoppower paks &"
40 [153]"   stopbombs; but be careful of stopmines and"
41 [153]"   hidden stopcell-traps which can damage"
42 [153]"   your probe or make you waste time."
43 [153]"   you have 3 'host' probes scattered"
44 [153]"   strategically around the base:when"
45 [153]"   one is lost,control will instantly"
46 [153]"   be transferred to the next probe -"
47 [153]"   until all 3 have been deactivated."
48 [153][163]10)"printbegin?":t[178].:[151]198,.
49 [161]a$:[139]a$[179][177]""[167]54
50 t[178]t[170]1:[139]t[178]500[167][151]54273,2
51 [139]t[179][177]15[172][181](t[173]15)[167]49
52 c[178]c[170]1:[139]c[177]51[167]c[178]48
53 [151]52216,c:[137]49
54 [151]54276,.:[151]54296,.:[151]53280,6:[151]53281,6:[151]53269,.:[153]"loadstop"
55 b$[178]"                        ":[153][163]8)b$
56 [153][163]8)"  loading main program stop ":[153][163]8)b$:[156]
57 [153]"load"[199](34)"0:rr2"[199](34)",8"
58 [153]"runonononononononon":[151]631,13:[151]632,13:[151]198,2:[162]
59 [131]62,99,99,,99,99,62,,24,24,24,,24,24,24,,62,3,3,62,96,96,62,0
60 [131]62,3,3,28,3,3,62,,99,99,99,60,3,3,3,,62,96,96,62,3,3,62,0
61 [131]62,96,96,30,99,99,62,,126,3,3,,3,3,3,,62,99,99,62,99,99,62,0
62 [131] 62,99,99,60,3,3,62,0
63 [151]53281,.:[151]53280,.
64 [153]"load"
65 [153]"               (NULL)usr   (NULL)(NULL)"
66 [153]"         from  (NULL)andode(NULL)sqruest '87"
67 [153]"                     log"
68 [142]